﻿
Partial Class Apps_report_stp_sub_menu
    Inherits System.Web.UI.Page

    Protected Sub btnFilter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFilter.Click

        Try

            Dim url = "../reports/report_stp_sub_menu2.aspx?main_system_code={0}&menu_system_code={1}&sub_menu_status={2}&str_main_system_code={3}&str_menu_system_code={4}&str_sub_menu_status={5}"
            url = String.Format(url, _
                                ddlStpMainSystem.SelectedValue, _
                                ddlStpMenuSystem.SelectedValue, _
                                ddlStatus.SelectedValue, _
                                HttpUtility.UrlEncode(ddlStpMainSystem.SelectedItem.Text), _
                                HttpUtility.UrlEncode(ddlStpMenuSystem.SelectedItem.Text), _
                                HttpUtility.UrlEncode(ddlStatus.SelectedItem.Text))

            Dim script = String.Format(" window.open('{0}','_blank');", url)

            ScriptManager.RegisterStartupScript( _
            Me, _
            Me.GetType(), _
            Guid.NewGuid().ToString(), _
            script, _
            True _
            )
        Catch ex As Exception
            GenericHelper.ShowAlert(Me, ex.Message)
        End Try

    End Sub

    Protected Sub Page_LoadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComplete
        Dim BreadCrumpBG As HtmlControl = Page.Master.FindControl("tdBreadCrump")
        Dim BreadCrump As Literal = Page.Master.FindControl("ltrBreadCrump")
        CodeMatrix.Business.GenericData.SetBreadCrump(BreadCrumpBG, BreadCrump, 54)
    End Sub
End Class
